﻿Public Class Login

    Public Function validar(ByVal idUsuario As String, ByVal clave As String) As Usuario
        Dim modelo As New Usuario
        modelo.email = idUsuario
        modelo.passw = clave

        Dim dao As New UsuarioDAO
        Return dao.validar(modelo)
    End Function

End Class
